1 POKE53280,11:POKE53281,.:FORA=0TO15:POKE53270,A*5:PRINTCHR$(147):PRINTCHR$(14)
2 PRINT"[156]           [214][160][197][160][210][160][196][160][193][160][205][160][205][160][212] !!           ";
5 POKE53281,.:PRINT"[147][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]";
6 PRINT"[169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";:NEXTA:
10 DATA"[223][169][223][169][223][169][223][169][223][169][223][169][223]":DATA"[223][169][223][169][223][169][223][169][223][169]WAS IS'N JETZT KAPUTT?[223][169][223][169][223][169][223][169]"
15 READB$,A$:PRINT"[169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]";
20 C$=A$+B$:L=LEN(C$):D$=C$+C$:FORI=1TOL:NEXTI:FORC=4TO10:POKE646,C:
25 PRINTTAB(22)"[145][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";:
30 PRINT"[169][223]OH, MANN![169][223][169][223][169][223][169][223]"MID$(C$,I,40)+(B$+A$):TI$="000003":WAIT161,1:
35 NEXTC: PRINTCHR$(142)
55 FORZ=23TO0STEP-1:POKE677,Z
60 Z1=217+Z:H=PEEK(Z1)OR128
65 FORI=1TO25-Z
70 SYS59777:POKEZ1,H:NEXTI,Z:POKE53270,11
100 FORX=0TO24:POKE54272+X,0:NEXTX
110 POKE53280,.:POKE53281,.:FORC=0TO29:POKE646,C
120 PRINTCHR$(147)" WARUM GEHT'N DAS NICHT? ";:NEXTC
130 TI$="000003":WAIT161,1
140 V=54272:FORM=0TO11:READY::POKEV+M,Y:NEXTM:POKEV+24,15:POKEV+4,129:POKEV+5,229
150 DATA0,4,0,6,0,14,25,23,19,9,4,0:TI$="000002":WAIT161,1:GOTO160
160 HO=999:AN=15:DE=12:HA=10:AU=5:WE=33:VE=3:DA=1000:VO=15
170 POKE54296,VO:POKE54278,HA*16+AU:FORC=0TO5 :POKE646,C:SYS65001
180 PRINT"   HAT MEIN COMPI JETZT ETWA 'NE MACKE??";:PRINT"[145] "
190 B=INT(RND(0)*127)+1.5:POKE53272,B
200 POKE54277,AN*16+DE:POKE54275,VE
210 NEXTC:POKE53272,21
220 POKE54273,HO/256:POKE54272,HO-(INT(HO/256)*256):
230 TI$="000003":WAIT161,1:PRINT"[147][158]          HOFFENTLICH NICHT!!!"
240 FORA=0TO60:POKE53270,A:NEXTA:TI$="000004":WAIT161,1
250 POKE54276,WE:FORW=0TODA:NEXTW:VO=9:POKE54296,VO
260 PRINT"     ABER IRGENDWAS STIMMT NICHT...":TI$="000003":WAIT161,1
270 S=54272:FORI=0TO6:READX:POKES+I,X:NEXT:POKES+24,15:POKES+4,33:DATA0,30,0,4,,11,11
280 POKE54276,WE+17 :FORZ=0TO5:POKE646,Z:POKE56325,0:PRINT"[157][157][157][157][157][157][157][157][157]"
290 PRINT"[145][145][184][184][183][163][163][183][184][184][183][163][163][183][184][184] BLOSS WAS? [184][184][183][163][163][183][184][184][183][163][163][183][184][184]";:NEXTZ:
300 PRINT"[147]ACH SO! [156]DIE DISKETTE IST ZU ENDE!!" :POKE56325,58:POKE53334,11
310 PRINT"[129]          NA, DANN   TSCHUESS!":TI$="000003":WAIT161,1
320 PRINT"[147][151]";:PRINT"";
330 READA$:IFA$="0"THEN370
340 PRINTTAB((15 -LEN(A$))/2)A$:GOTO330
350 DATA GEMACHT VON,L U K I A N,===========
360 DATA IM JUNI '95,0
370 POKE56325,1:FORI=0TO150:NEXT     :PRINT"[155]  "
380 POKE56325,58:TI$="000004":WAIT161,1:SYS58253